home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / Clarissa_HTTPd.lha / Clarissa-HTTPd / HTML / cgi-bin / browserinfo.cgiopt < prev    next >
Encoding:
Text File  |  2000-10-23  |  1.2 KB  |  43 lines
  1. /* #! sys:rexxc/rx **/
  2. /* $VER: browserinfo.cgiopt 1.0 (23.10.00) */
  3. /* Beispielscript für Clarissa-HTTPd*/
  4. /* © Martin Kayser */
  5.  
  6.  
  7. parse arg browser host sprache referer argumente
  8. say 'Content-type: text/html'
  9. say ''
  10.  
  11.  
  12. say '<head><title>cgiopt-test</title></head><body>'
  13. say '<h1><B><U>CGIOPT-Testseite</U></B></h1>'
  14.  
  15. say 'Aufrufender Browser: 'browser'<BR>'
  16. say '<BR>'
  17.  
  18. say 'Aufgerufene Domainadresse: 'host'<BR>'
  19. say '<BR>'
  20.  
  21. say 'Der Browser akzeptiert folgende Sprachen: '
  22. if sprache='NO' then say 'keine Angabe<BR>'
  23. if upper(sprache)='DE' then say 'deutsch<BR>'
  24. if sprache~='NO'&upper(sprache)~='DE' then say sprache'<BR>'
  25. say '<BR>'
  26.  
  27. say 'Wenn der aufrufende Browser einen Referer übermittelt hat, ist hier'
  28. say 'die Adresse der Datei zu finden, von welcher das Script aufgerufen wurde: '
  29. if referer='NO' then do
  30.  say 'keine Angabe<BR>'
  31.  say '<I>Zwei Gründe sind Möglich:<BR>'
  32.  say '<OL><LI>Der Server unterstützt keinen Referer'
  33.  say '<LI>Das Script wurde direkt aufgerufen</OL></I>'
  34. end
  35. else say referer'<BR>'
  36. say '<BR>'
  37.  
  38. say 'Das CGIOPT-Script wurde mit folgenden weiteren Argument aufgerufen:'
  39. if argumente='' then say 'kein Argument<BR>'
  40. else say argumente'<BR>'
  41.  
  42. say '</body></html>'
  43. exit